home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / progdisk.d64 / textmaster 64 (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  5KB  |  87 lines
  1. 105 POKE53280,BD:POKE53281,0:IFPEEK(53272)<>23THENPOKE53272,23
  2. 110 GOSUB9010
  3. 120 IFSF$="M"THENGOSUB8010
  4. 130 IFSF$="S"THENGOSUB7010
  5. 140 IFSF$="L"THENGOSUB6010
  6. 150 IFSF$="W"THENGOSUB1010
  7. 160 IFSF$="P"THENGOSUB5010
  8. 170 IFSF$="E"THENGOSUB8510
  9. 180 IFSF$="N"THENGOSUB4010
  10. 190 GOTO120
  11. 1010 SF$="M":IFN$<>""THEN1030
  12. 1011 PRINT"[147][212]EXTMASTER":PRINT"[198]ILE HAS NO NAME.":PRINT"[208]LEASE PRESS THE [198]1 [203][197][217]
  13. 1012 [161]G$:[139]G$[179][177]"INPUT"[167]1012
  14. 1013 [153]"LOAD(null)LEASE ACCESS EITHER (null)(null)ATNSTR$ OR (null)ATN(null)VAL":[142]
  15. 1030 [153]E$"SYS(null)(null)RIGHT$(null)VALWAIT "[202](N$,4,20)[163]29)"(null)INE":[141]10000:[158]4847:[158]5503:[142]
  16. 2010 [151]53272,23:[153]"LOADSYS(null)VAL(null)(null)(null)ATN(null)(null)VAL(null)"
  17. 2011 [153]"(null)RESS ASC7 TO CHANGE BORDER COLOR.        (null)RESS RETURN WHEN SATISFIED."
  18. 2012 [161]Z$:[139]Z$[179][177]"LET"[175]Z$[179][177][199](13)[167]2012
  19. 2013 [139]Z$[178][199](13)[167]:[158]5613:N$[178]"":[137]2020
  20. 2014 BD[178]BD[170]1:[139]BD[179]16[167]:[151]53280,BD:[137]2012
  21. 2015 BD[178]0:[151]53280,BD:[137]2012
  22. 2020 [158]4847:[142]
  23. 3010 [159]1,8,15,"I0":[160]1:[159]1,8,2,"$0":[158]6347:[160]1:SL[178]176:FL[178]SL[170]1:L[178]0:N[178]0:[158]4847
  24. 3070 [129]X[178]1184[164]2023:L[178]L[170]1:[139][194](X)[178]32[167]3090
  25. 3080 L[178]0:N[178]N[170]1:[151]X[171]3,FL:[151]X[171]2,SL:SL[178]SL[170]1:X[178]X[170]17:[139]SL[178]186[167]FL[178]FL[170]1:SL[178]176
  26. 3090 [139]L[179]40[167][130]
  27. 3100 [142]
  28. 4010 [153]"LOAD":[141]10000:SF$[178]"W":[153]E$"(null)ATN(null)VALWAIT ";:[139]N$[178]""[167][153]"ASCILE HAS NO NAME":[137]4110
  29. 4020 [153]""[202](N$,4):[153]"LENHANGE NAME? (null)VAL(null)(null)(null)(null)CLOSEOR ASC1 (null)VAL(null)
  30. 4030 GETG$:IFG$=""THEN4030
  31. 4040 IFG$="[133]"THENRETURN
  32. 4050 IFG$<>CHR$(13)THEN4030
  33. 4110 PRINT"[193]SSIGN NAME.... [210][197][212][213][210][206]":OPEN1,0:INPUT#1,N$:CLOSE1:IFN$=""THEN4110
  34. 4112 SYS4847
  35. 4115 FORX=1TOLEN(N$):C=ASC(MID$(N$,X,9))
  36. 4116 IF(C<91ANDC>47)OR(C>192ANDC<219)ORC=32THENNEXT:GOTO4118
  37. 4117 PRINT"[201]NVALID NAME":GOTO4110
  38. 4118 IFLEFT$(N$,3)<>"TM-"THENN$="TM-"+N$
  39. 4119 RETURN
  40. 5010 SF$="W":PRINTE$"[208][210][201][206][212][146] [208]RINTER READY? [210][197][212][213][210][206] OR [198]1 [203][197][217]"
  41. 5052 GETGE$:IFGE$=CHR$(133)THENRETURN
  42. 5054 IFGE$<>CHR$(13)THEN5052
  43. 5063 OPEN3,4:SYS5100:CLOSE3:RETURN
  44. 6010 SF$="M":PRINTE$"[147][204][207][193][196]":GOSUB10000:GOSUB3010:SYS4847
  45. 6020 PRINT"[212]O RETURN TO [205][197][206][213] PRESS [198]1 THEN [210][197][212][213][210][206]
  46. 6023 [159]1,0:[132]1,IN$:[160]1:IN[178][197](IN$):[139]IN[178]0[167][153]"LOAD":[142]
  47. 6030 [139]IN[179]10[176]IN[177]N[170]9[167]ME$[178]"(null)(null)CLOSE(null)(null)LENLEFT$CLOSEASCRIGHT$(null)VAL":[137]6300
  48. 6040 [153]""[166]20):[129]X[178]1[164]IN[171]9:[153][166]20);:[130]:[159]3,3:[132]3,N$:[160]3
  49. 6042 [129]X[178]16[164]1[169][171]1:[139][202](N$,X,1)[178]" "[167][130]
  50. 6043 N$[178][200](N$,X):[139][200](N$,3)[179][177]"TM-"[167]6290
  51. 6050 [141]9070:[151]4846,1:[158]5613:[153]E$"(null)(null)(null) (null)(null)ATNSTR$RIGHT$(null)CHR$WAIT "[202](N$,4):SF$[178]"W"
  52. 6060 [159]1,8,15,"I0":[160]1:[147]N$,8,3:[158]4847
  53. 6290 ME$[178]"(null)(null)(null)CLOSEATNCLOSE(null)VAL(null)(null)CLOSEASCRIGHT$(null)VAL"
  54. 6300 [153]:[153]""ME$:[129]X[178]1[164]1000:[130]:[153]"ON               ":[137]6020
  55. 7010 [139]N$[178]""[167][141]4010
  56. 7015 [153]E$"(null)ATN(null)VALWAIT DISK IN STR$0? (null)VAL(null)(null)(null)(null) OR ASC1 (null)VAL(null)
  57. 7020 GETGE$:IFGE$=CHR$(13)THENGOSUB9070:GOTO7100
  58. 7030 IFGE$=CHR$(133)THENSF$="M":RETURN
  59. 7040 GOTO7020
  60. 7100 F$="0:"+N$:S$="S"+F$:PRINTE$"[211]AVING[146] "MID$(N$,4):OPEN1,8,15,"I0":PRINT#1,S$:CLOSE1
  61. 7160 IFPEEK(145)=228THENSYS(62589)F$,8
  62. 7165 IFPEEK(789)=234THENSYS(57812)F$,8
  63. 7170 SYS5539:SYS5088
  64. 7205 IFST<>0THENPRINT"[196][201][211][203] [197][210][210][207][210]"DS$:END
  65. 7300 GOSUB9070:PRINT"[147]":SF$="W":SYS4847:RETURN
  66. 8010 PRINTE$"[158][205][197][206][213][146]: [215][146]RITE [204][146]OAD [211][146]AVE [208][146]RINT [197][146]RASE [206][146]AME":GOSUB10000
  67. 8070 GETG$:IFG$="W"ORG$="L"ORG$="S"ORG$="P"ORG$="N"ORG$="E"THENSF$=G$:RETURN
  68. 8080 GOTO8070
  69. 8510 SF$="W":PRINTE$"[197][210][193][211][197][146] [193][146]LL, [210][146]EMAINDER OR [198]1 [203][197][217]
  70. 8520 [161]G$:[139]G$[178]""[167]8520
  71. 8540 [139]G$[178]"R"[167]8600
  72. 8550 [139]G$[178]"A"[167][151]4846,0:[138]
  73. 8560 [139]G$[178][199](133)[167][142]
  74. 8570 [137]8520
  75. 8600 [158]6511:[142]
  76. 9010 [153]"LOAD"
  77. 9070 [151]828,0:[151]829,32
  78. 9100 [151]830,0:[151]831,32
  79. 9130 [151]832,80:[151]833,4
  80. 9160 [151]834,96:[151]835,71
  81. 9190 [151]836,0:[151]837,32
  82. 9220 [151]838,1:[151]840,1:E$[178]"                                       "
  83. 9315 [158]6476:[158]4847:[139]SF$[178]""[167]SF$[178]"W"
  84. 9400 [151]839,1:[139][194](4846)[178]0[167][141]2010:[151]4846,1:[151]51,0:[151]52,32
  85. 9999 [142]
  86. 10000 [153]"SYSTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[142]
  87.